home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 84 / 084.d81 / fortune boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  996b  |  28 lines
  1. 5 dv=peek(196):ifdv<8thendv=8
  2. 10 poke53281,0:poke53280,0:print"[147][159]"
  3. 20 gosub1000
  4. 30 sys57812"fh.spr",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  5. 40 sys57812"fortune hunter",dv,0:poke780,0:poke781,160:poke782,15:sys65493
  6. 50 sys4000
  7. 55 print"[147]":poke53269,0
  8. 60 poke53272,21:poke53270,200
  9. 70 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  10. 80 ifer<>63thenend
  11. 90 print"[147][144]load"chr$(34)"hello connect"chr$(34)",8"
  12. 100 print"run"
  13. 110 poke631,13:poke632,13:poke198,2:end
  14. 1000 poke214,3:print
  15. 1010 print"[154]      [198] [207] [210] [212] [213] [206] [197]   [200] [213] [206] [212] [197] [210]"
  16. 1020 print"[159]    [193] [195]hallenging [199]raphic [193]dventure"
  17. 1030 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  18. 1040 print"  [152]                                    "
  19. 1050 print"       [198] [207] [210] [212] [213] [206] [197]   [200] [213] [206] [212] [197] [210]    "
  20. 1060 print"   by [194]ob [194]lackmer   ([195])1991 [211][207][198][212][196][201][211][203] "
  21. 1070 print"        [208]ublished on [204][207][193][196][211][212][193][210] #84     "
  22. 1080 print"      [211]ubscriptions 1-800-831-2694    "
  23. 1090 print"            [193]ll [210]ights [210]eserved       "
  24. 1100 print"                                      "
  25. 1110 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  26. 1120 return
  27. 10000 open15,8,15,"s0:fortune boot":close15:save"fortune boot",8:end
  28.